home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Examples / Cards / MCards.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.1 KB  |  43 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  2. { MCards.p }
  3. { Copyright © 1986-1990 by Apple Computer, Inc.  All rights reserved. }
  4.  
  5. PROGRAM Cards;
  6.  
  7.   {$MC68020-}                                            { The main program must be universal code }
  8.   {$MC68881-}
  9.  
  10.     USES
  11.         { • MacApp }
  12.         UMacApp,
  13.  
  14.         { • Building Blocks }
  15.         UPrinting, UTEView,
  16.  
  17.         { • Implementation use }
  18.         UCards;
  19.  
  20.     VAR
  21.         gCardsApplication:    TCardsApplication;
  22.  
  23. {$S Main}
  24.  
  25.     BEGIN
  26.     InitToolBox;                                        { Essential toolbox and utilities
  27.                                                           initialization }
  28.     IF ValidateConfiguration(gConfiguration) THEN        { Make sure we can run }
  29.         BEGIN
  30.         { Continue with remainder of initialization }
  31.         InitUMacApp(8);                                 { Initialize MacApp; 8 calls to MoreMasters }
  32.         InitUPrinting;                                    { Initialize printing }
  33.         InitUTEView;                                    { Initialize TextEdit views }
  34.  
  35.         New(gCardsApplication);                         { allocate the Application object }
  36.         FailNil(gCardsApplication);
  37.         gCardsApplication.ICardsApplication;            { Initialize; if ok then... }
  38.         gCardsApplication.Run;                            { run the application }
  39.         END
  40.     ELSE
  41.         StdAlert(phUnsupportedConfiguration);
  42.     END.
  43.